;The Following is a script allowing people to have a house
;Created by Seraphino 2005
;Copyright 2k5 by Seraphino
;-------------------------------------------------------------------

SCENE 32 House
	THEME	0
	MUSIC	"Silence.mid"
	COMPARE #<num.peopleInScene>, 1
	IF= @Housecompare
	IF> @toomanypeople
	N: There are too many people in scene to visit
	N: Home
	END

@Housecompare
N: We are now checking if you own a house...
WAIT 3
COMPARE #<str.soul>, 570A4164
IF= @ownhome1
IF> @nohouse
IF< @nohouse
END

@ownhome1
N: Welcome home #<str.name>
N: Just click the buttons
N: On your screen for thier options
ACTOR 1,	"Change Atmosphere", 	HomeOption1, 1, 10, 93
ACTOR 2,	"Heal Yourself",	HomeOption2, 1, 30, 93
ACTOR 3,	"Check Stocks", 	HomeOption3, 1, 60, 93
ACTOR 4,	"Purchase Items", 	HomeOption4, 1, 90, 93
END

@EventActorClick1
N: You can now change the atmosphere
N: In a minute we will give you a menu
N: More options to come!
WAIT 3
MENU "Change Music=@changemus1"
END
@changemus1
MENU "Classical=@cClass1", "Jazz=@cjazz1", "Rock=@cRock1", "No Thanks=@no1"
END

@cClass1
MUSIC "HomeClassical.mid"
GOTO @ownhome1
END

@cjazz1
MUSIC "HomeJazz.mid"
GOTO @ownhome1
END

@cRock1
MUSIC "HomeRock.mid"
GOTO @ownhome1
END

@no1
GOTO @ownhome1
END

@EventActorClick2
N: We will now revive and heal you
SOUND "lightning01.wav"
GIVE	L1
GIVE	H5000
GIVE	M5000
N: There
GOTO @ownhome1
END

@EventActorClick3
GAME 7
N: Just say "yes" when you wish to exit
ASK 9999999999
IF -YES, @saidno
GOTO @ownhome1
END

@EventActorClick4
N: In a minute we will offer you an item
N: This item is special and CANNOT BE GIVEN!
OFFER  9
END

@nohouse
N: You do not own a house...